home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / BUS / TMCM Software and Labs.sit / Software for TMCM 7_95 / Files for Lab 14 / SpinningBows < prev    next >
Text File  |  1995-03-11  |  308b  |  18 lines
  1. ; Shows a tumbling rod with a spinning bow on each end
  2.  
  3. animate 20 20 20
  4.  
  5. define bow [
  6.    polygon  -2,-1  -2,1  2,-1  2,1
  7. ]
  8.  
  9. define bar [
  10.    cube scale 12,0.3,0.3
  11.    bow rotate 0:::360 yrotate 90 xtranslate 6
  12.    bow rotate 0:::540 yrotate -90 xtranslate -6
  13. ]
  14.  
  15. bar
  16.   yrotate 45:45:225:225
  17.   xrotate 0:0:0:180
  18.